From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 17 Mar 1993 07:59:09 +0000 (+0000)
Subject: (Fprocess_send_eof): Make sure proc is running.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96839
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=577d03d57f1fa86dd7536995c0506f752ba1da81;p=emacs.git

(Fprocess_send_eof): Make sure proc is running.
---

diff --git a/src/process.c b/src/process.c
index 31613f30769..a3e10411874 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2568,6 +2568,13 @@ nil, indicating the current buffer's process.")
   Lisp_Object proc;
 
   proc = get_process (process);
+
+  /* Make sure the process is really alive.  */
+  if (! NILP (XPROCESS (proc)->raw_status_low))
+    update_status (XPROCESS (proc));
+  if (! EQ (XPROCESS (proc)->status, Qrun))
+    error ("Process %s not running", procname);
+
   /* Sending a zero-length record is supposed to mean eof
      when TIOCREMOTE is turned on.  */
 #ifdef DID_REMOTE